home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_167.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  326 b   |  24 lines
  1. property spriteNum, mychan, mdown
  2. global dirlist
  3.  
  4. on beginSprite me
  5.   mychan = spriteNum - 272
  6.   mdown = 0
  7. end
  8.  
  9. on mouseDown me
  10.   mdown = 1
  11. end
  12.  
  13. on mouseUpOutSide me
  14.   mdown = 0
  15. end
  16.  
  17. on mouseUp me
  18.   if mdown then
  19.     dirlist[mychan] = #forward
  20.     sprite(spriteNum + 15).loc = sprite(spriteNum).loc
  21.     mdown = 0
  22.   end if
  23. end
  24.